home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / glass / glass.lha / GLASS / libcvr / fscsym.c < prev    next >
C/C++ Source or Header  |  1990-11-09  |  311b  |  21 lines
  1. /* File: fscsym.c */
  2.  
  3. #include "all.h"
  4. #include "cvr.h"
  5.  
  6. int fscan_symbol( f, s )
  7.  FILE *f;
  8.  symbol *s;
  9. {
  10.     char *symstr;
  11.  
  12.     if( fscan_string( f, &symstr ) ){
  13.     *s = addsymbol( "<error>" );
  14.     fre_string( symstr );
  15.     return( 1 );
  16.     }
  17.     *s = addsymbol( symstr );
  18.     fre_string( symstr );
  19.     return( 0 );
  20. }
  21.